home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_17_1987_Transactor_Publishing.d64
/
eprom prg tester
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
47 lines
10 rem *********************************
20 rem *** eprom programmer tester *****
30 rem *** by tim bolbach (1986) *****
40 rem *********************************
50 n$(1)=" u1 port a":ad(1)=56832
60 n$(2)=" u1 port b":ad(2)=56833
70 n$(3)=" u1 port c":ad(3)=56834
80 n$(4)=" u2 port b":ad(4)=57089
90 for a=1 to 4:for t=0 to 7:read p(a,t+1):next t:next a
100 rem *** set all ports to write ***
110 poke56835,128
120 poke57091,128
130 rem *** menu select ***
140 print"[147]";
150 print"eprom programmer tester":print
160 print"---- menu ---- "
170 print
180 print" 1 - u1 port a"
190 print" 2 - u1 port b"
200 print" 3 - u1 port c"
210 print" 4 - u2 port b"
220 print:print:print"refer to schematic diagram for"
230 print"chip and port designations"
240 poke198,0:wait198,1:geta$
250 a=asc(a$)-48:if a>4 or a<1 then 240
260 print"[147]"
270 print"set voltmeter for 5 volts [146]"
280 print"connect negative to pin #7 [146]"
290 print"connect positive to pin shown[146]"
300 print:print
310 printn$(a);" address is ";ad(a)
320 print:print:print
330 for t=0 to 7
340 print" pin # ";p(a,t+1);tab(20);"bit";t
350 next t
360 print:print"common is pin # 7"
370 print:print
380 input "bit #[160]to turn on (8=menu) ";b
390 ifb<0 or b>8 then 380
400 ifb=8 then 130
410 poke ad(a),2^b
420 goto 260
430 data 4,3,2,1,40,39,38,37
440 data 18,19,20,21,22,23,24,25
450 data 14,15,16,17,13,12,11,10
460 data 18,19,20,21,22,23,24,25